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PREFACE 


This  technical  report  was  prepared  by  the  Research  Staff  of  the 
Electrical  and  Computer  Engineering  Department,  School  of  Engineering,  The 
University  of  Alabama  In  Huntsville.  The  purpose  of  the  report  is  to  pro¬ 
vide  documentation  of  the  technical  work  performed  and  results  obtained 
under  delivery  order  0043  of  MICOM  Contract  No.  DAAH01-82-D-A008;  Terry  N. 
Long,  Principal  Investigator.  The  report  also  provides  an  addendum  to  the 
documentation  of  the  technical  work  performed  and  results  obtained  under 
delivery  order  0027;  Dr.  James  D.  Marr,  Principal  Investigator.  The  pro¬ 
ject  was  performed  by  Dr.  James  D.  Marr,  Bruce  Tucker,  Tim  Palmer,  David 
Pool,  Terry  Long,  and  several  other  members  of  the  UAH  ECE  research  staff. 
Dr.  M.  M.  Hal  1  urn  III,  Chief,  System  Evaluation  Branch,  was  the  technical 
monitor;  and  Mr.  Mark  Horton  also  from  the  Systems  Evaluation  Branch  of  the 
Research,  Development,  and  Engineering  Center,  U.  S.  Army  Missile  Command, 
provided  technical  coordination; 

The  technical  viewpoints,  opinions,  and  conclusions  expressed  in  this 
report  are  those  of  the  authors  and  do  not  necessarily  express  or  imply 
policies  or  positions  of  the  U.  S.  Amy  Missile  Command. 
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1.0  INTRODUCTION 


The  FEASIL  Database  Management  System  (DBMS)  Is  a  relational  system; 
that  Is,  It  Is  designed  to  most  effectively  support  tabular  data.  It  was 
first  developed  about  1978  by  M.  M.  Hallum  and  has  evolved  several  new 
features  since  that  time.  Currently,  It  can  accept  new  data  from  keyboard 
or  file,  alter  existing  data,  select  only  certain  parts  of  the  data  for 
further  manipulation,  sort  data  Into  ascending  or  descending  order,  perform 
limited  mathematical  functions,  display  or  plot  data,  print  tables  of  data, 
output  data  for  use  by  other  programs,  and  perform  several  other  functions. 

FEASIL  was  first  developed  under  a  Perkln-Elmer  OS-32  operating  system 
and  has  since  received  many  refinements  through  several  revisions.  The 
principal  task  of  the  work  documented  by  this  report  was  to  transfer  FEASIL 
to  a  VAX-11/780  computer  under  a  VMS  operating  system.  Section  2.0  descri¬ 
bes  several  of  the  technical  considerations  which  affected  the  work.  New 
features  which  resulted  from  the  transfer  are  then  described  in  Section 
3.0.  Code  changes  In  addition  to  the  new  features  were  required  for  the 
transfer.  They  are  documented  in  Section  4.0.  Major  performance  Improve¬ 
ments  resulted  during  the  transfer  with  the  SORT  function  receiving  the 
greatest  Improvements.  These  improvements  are  described  and  quantified  in 
Section  5.0.  As  part  of  this  and  previous  tasks,  an  effort  was  made  to 
carefully  examine  the  body  of  FEASIL  code  through  development  of  flow 
charts.  This  design  summary  effort  is  described  in  Section  6.0,  and  the 
flow  charts  are  presented  in  the  appendices.  And  finally,  an  extensive 
list  of  recommendations  and  conclusions  is  presented  in  Section  7.0. 


2.0  VAX  IMPLEMENTATION  TECHNICAL  CONSIDERATIONS 


• 

The  principal  goal  of  this  project  was  to  port  FEASIL  from  a 
Perkin-Elmer  (P-E)  computer  to  a  VAX  computer.  Differences  between  the  P-E 
and  VAX  that  made  this  conversion  nontrivial  included  file  structure  dif¬ 
ferences,  different  file  name  limitations.  Flex  dialect  differences,  and 
operating  system  differences.  Within  the  main  goal  was  the  requirement  that 
the  transported  version  be  upward  compatible  and  have  substantially  similar 
capabilities.  A  secondary  goal  was  to  improve  feedback  to  the  user. 

From  the  programmer's  viewpoint,  the  P-E  files  reside  directly  on  a 
device,  with  pathnames  and  filenames  such  as 

USER.-FILE.EXT 

typical.  On  the  VAX,  the  device  Is  subdivided  into  directories  and 
possibly  subdirectories,  with  a  name  such  as 

dual : [userdi ski . humanbei ngname . acti vi tyname] f i 1 ename . extensi on 

typical.  The  device  name  and  directory  path  for  a  first  level  user  sub¬ 
directory  is  typically  28  characters.  Further,  files  in  the  "current 
default  directory"  of  the  VAX  can  be  accessed  without  either  the  device 
name  or  the  directory  path  name.  This  forces  creation  of  a  large  buffer 
for  device  name  (including  path)  and  the  option  to  have  no  device  name. 

Filenames  on  the  P-E  are  limited  to  8  characters  with  a  3-character 
extension,  as  noted  above.  The  VAX  filenames  are  limited  to  39  characters 
with  a  39-character  extension.  The  easiest  solution  is  to  just  continue 
use  of  the  8+3  filenames.  .  Since  the  directory  name  is  also  limited  by  the 
same  39-character  limit,  and  operator  tolerance  is  the  principal  limit  on 
the  number  of  levels  of  subdirectory,  the  device  name  buffer  and  any 
descendant  buffers  should  be  huge.  As  a  practical  limit,  we  assumed  44 
characters  as  an  upper  bound  for  name  and  path. 

The  most  annoying  difference  between  the  Flex  dialects  was  that  the 
construct 

WHEN(I.LT.O) 

1=0 

GO  TO  73 

ELSE 

1=1 

FIN 


converts  without  error  on  the  P-E,  while  it  produces  code  on  the  VAX  of  the 
form 

IF( .NOT. ( I .LT.O) ) GO  TO  99999 
1=0 

GO  TO  73 
GO  TO  99998 
99999  1=1 
99998  . 
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THIS  causes  a  FORTRAN  compile  error  because  the  statement  "go  to  99998"  Is 
unreachable.  A  more  significant  problem  Is  that  some  of  the  more  powerful 
FORTRAN  77  (F77)  constructs  {such  as  the  "If. . .then. . .else. . .endlf" )  have 
keyword  conflicts  with  Flex,  making  them  Incompatible.  However,  Flex  can 
understand  only  capital  letters;  making  all  F77  constructs  lower  case  lets 
them  pass  the  flees  preprocessor  unmodified  and  be  compiled. 

*  Operating  system  differences  became  most  apparent  In  file  operations. 

The  two  computers  differ  In  their  mechanisms  for  renaming  files,  but  that 
problem  can  be  overcome  within  the  FILEREN  subroutine  Itself.  As  expected, 
I/O  error  numbers  were  Incompatible,  so  a  separate  routine  called  VAXERR 

,  was  created  and  linked  through  the  original  error  handler.  Tape  handling 

Is  sufficiently  difficult  that  the  backup  function  was  forced  Into  a  stand¬ 
alone  program. 


3.0  NEW  FEATURES 


New  features  visible  to  the  user  fall  into  two  categories,  flexibility 
and  feedback.  The  first  group  Includes  menu  modifications.  The  second 
group  consists  of  messages  to  Inform  the  user  of  current  activity  and  of 
the  progress  of  long-duration  activities. 

The  main  menu  originally  had  functions  0  to  11  (function  12  is  limited 
to  system  programmers).  The  VAX  version  has  the  same  choices,  but  will 
also  accept  commands  by  the  first  letter(s)  of  the  command  name;  the  user 
need  enter  only  enough  letters  for  a  nonambiguous  choice.  This  is  of  bene¬ 
fit  to  casual  users  and  novice  typists  who  can  reach  letters  more  easily 
than  digits.  Another  system  program  function  (13)  has  been  added  to  per¬ 
form  a  brute-force  tuple  dump  to  the  printer;  this  is  effective  for  archi¬ 
val  dumps  and  for  debugging.  Help  options  are  available  at  the  main  menu 
and  at  several  of  the  secondary  menus. 

FEASIL  now  provides  feedback  approximately  every  twenty  seconds  or 
less.  When  the  original  .ADF  and  .TF  are  being  copied  at  the  start  of 
"retrieve,  manipulate,  and  plot"  (8),  the  program  declares  that  the  copy  is 
beginning  and  reports  every  hundred  records  copied.  The  SORT  function  now 
provides  a  crude  advance  estimate  of  the  time  needed  and  periodically 
reports  how  the  bubble  sort  is  progressing.  The  DELETE  function  in  EDIT 
(4)  now  reports  every  twentieth  record  for  large  delete  actions. 

Additional  feedback  information  was  added  to  several  of  the  error 
messages  and  to  dangerous  activities.  When  a  FORTRAN  error  occurs,  instead 
of  giving  machine-dependent  error  numbers,  the  system  now  generally  gives  a 
text  string  defining  the  error.  Since  the  MOVE  (M)  command  in  RETRIEVE, 
MANIPULATE  AND  PLOT  can  delete  tuples  from  the  original  relation,  the  user 
is  now  warned  a  second  time  that  he  has  made  a  dangerous  choice  and  asked 
to  reconfirm  the  decision. 
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4.0  CODE  CHANGES  FROM  PERK  IN-ELMER  VERSION 


Changes  to  the  program  were  made  for  two  reasons,  machine  factors  and 
program  enhancement.  Differences  In  the  file  structure  were  the  main 
reason  for  the  machine-dependent  changes,  and  an  attempt  was  made  to  con¬ 
fine  these  to  the  F7I0  library.  Program  enhancement  changes  Included 
message  changes,  conversion  from  Flex  to  FORTRAN  77,  and  algorithm  changes. 
Errors  found  in  the  flowcharting  project  were  corrected  on  both  the  VAX  and 
P-E  versions;  the  errors  were  predominantly  evolutionary  in  origin,  fre¬ 
quently  being  related  to  the  strlng-in-TF  data  compression  method.  The 
structure  of  the  .TDF,  .ADF,  and  .TF  files  was  maintained  for  compatibility 
with  the  P-E  FEASIL.  The  rest  of  this  section  will  provide  a  brief 
description  of  the  changes  to  each  program  file. 

Runtime  memory  usage  was  considered  first.  Currently,  the  main  menu 
driver  and  all  five  libraries  are  permanently  resident  in  memory,  with  the 
ten  main-menu  options  overlaid.  A  secondary  overlay  is  used  for  some  of 
the  activities  under  "RETRIEVE,  MANIPULATE,  AND  PLOT"  (option  8). 
Specifically,  only  one  of  FUNCTION,  PLOT,  PRINT,  or  SORT  will  be  in  memory 
at  a  given  time.  Table  1  shows  that  while  many  subprograms  are  called  by 
all  ten  activities,  some  are  called  only  by  one  of  the  main  menu  choices. 

An  analysis  of  this  subprogram  calling  hierarchy  indicates  that  a  restruc¬ 
turing  of  the  libraries  would  be  both  possible  and  beneficial.  The 
subprograms  and  their  locations  are  listed  in  Table  2,  and  Table  3  shows 
the  same  information  from  the  opposite  perspective,  location  and  contents. 

A  file-by-file  analysis  of  changes  follows. 

P-E  files  have  read/write  keys,  but  these  are  not  available  on  the 
VAX;  FEASIL  generally  does  not  ask  for  keys  on  the  VAX.  A  more  general 
rewrite  would  add  a  function  in  the  machine-dependent  library  F7I0  to 
request  or  not  request  keys. 

The  file  BKUPSTUB  (BACKUPRL  on  the  P-E)  contains  the  tape  backup 
routine.  Since  operating  system  restrictions  on  the  VAX  make  the  tradi¬ 
tional  backup  method  extremely  inconvenient,  the  backup  routine,  BACKUPRL, 
has  been  converted  to  a  "stub"  explaining  how  to  call  the  current  version 
of  the  stand-alone  input  program  for  tapes  generated  by  FEASIL  on  the  P-E. 
It  is  suggested  that  backup  on  the  VAX  be  performed  by  standard  VAX  proce¬ 
dures.  Efforts  are  in  progress  to  write  a  program  to  prepare  tapes  for 
return  to  the  P-E.  One  of  the  smaller  compatibility  problems  is  that  the 
VAX  and  P-E  disagree  on  the  byte  order  for  integer  numbers  on  a  tape;  they 
agree  on  text  order.  Additionally,  the  VAX  insists  on  specialized  system 
calls  for  tape  data  transfer  rather  than  standard  FORTRAN  READ  and  WRITE 
statements. 

The  file  DABA08  contains  both  the  main  program  and  a  BLOCK  DATA  ini¬ 
tialization  section.  The  main  program  is  predominantly  F77,  which  more 
effecfectively  supports  the  text  selection  of  desired  activity.  The  main 
menu  handler  now  accepts  letters  as  well  as  digits;  only  upper  case  is  sup¬ 
ported  to  remain  consistent  with  the  following  menus  in  the  original  P-E 
version.  All  subprogram  calls  have  been  modified  so  that  the  array  length 
is  also  passed  for  any  array  sent  to  the  subprogram.  In  the  future,  it 
will  be  possible  to  dimension  all  arrays  in  subroutines  to  the  correct 


> 
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length  activate  runtime  subscript  checking,  and  eleminate  most  references 
to  the  LCONST  COMMON;  this  will  aid  in  discovering  runtime  errors  that  can 
corrupt  data.  The  COMMON'S  in  the  BLOCK  DATA  section  have  been  adjusted  to 
a  minimum  length  of  19  words  to  accomodate  the  possibility  of  longer  file- 
i  names  on  the  VAX.  The  new  COMMON  named  MAXLEN  has  been  added  to  indicate 

the  longest  allowable  name,  which  is  set  at  13  words  at  the  present.  The 
default  device/directory  name  has  been  set  to  0  characters  with  text  of 
"Current  System  Default  Directory";  the  FILDES  routine  (elsewhere)  was  also 
I  tampered  to  be  able  to  echo  this  default  despite  its  zero  length. 

The  file  DABAEXIT  contains  the  status  reporting  routine  DBSTAT.  It 
originally  supported  the  normal  status  function  (11  or  S)  and  the  system 
programmer  function  (12  or  P  ).  It  has  been  modified  slightly  toward  F77, 
but  the  principal  change  was  the  addition  of  a  second  system  function  TOTAL 
(13  or  T),  which  does  a  total  dump  of  the  entire  relation  to  the  printer. 
Damaged  or  defective  ADF  records  are  reported,  rather  than  system  failure 
resulting.  Suppression  of  this  second  system  function  could  be 
accomplished  most  easily  by  modification  of  the  main  menu  to  reject  the  new 
commands.  The  function  to  be  performed  is  now  specified  by  a  character 
variable  passed  as  the  final  parameter.  The  modifications  were  also  retro¬ 
fitted  to  the  P-E  version. 

The  file  DELETREL  contains  the  relation  deletion  routine  DELREL.  It 
is  still  in  Flex,  but  is  only  46  lines  long  including  comments.  No  changes 
were  necessary. 

The  file  DSPLAY  contains  the  plotting  routine  DSPLAY ,  originally  writ¬ 
ten  by  M.  Castellano  based  on  earlier  code  by  J.  Marr.  It  was  changed  only 
slightly  and  still  relies  heavily  on  Flex.  The  printer  device  number  was 
changed  from  13  to  6.  The  pen  plotter  function  is  still  a  nonfunctioning 
stub.  It  could  stand  some  modification  for  compactness  and  effeciency 
since  it  reimplements  some  functions  available  in  the  libraries. 

The  file  EDITREL7  contains  the  data  entry  and  editing  routine  EDTREL. 
Few  changes  were  made  in  the  conversion  process,  but  several  logic  errors 
were  discovered  during  flowcharting  and  were  corrected  on  both  the  VAX 
and  P-E  versions.  The  most  visible  changes  were  periodic  feedback  in  the 
add-data-from-a-file  function  (A),  the  search/find  function  (F),  and  the 
delete  function  (D);  all  now  comment  on  progress  about  every  20  seconds. 

The  file  F7I0  is  a  machine-dependent  library.  All  routines  have 
builtin  error  checking  and  messages.  Subroutine  FILEOPN  uses  the  standard 
OPEN  function  for  'OLD'  and  'DIRECT'.  Subroutine  FILEDEL  on  the  VAX  opens 
a  file  and  then  closes  it  with  'DELETE'  option;  this  may  be  portable  for 
future  use.  Subroutine  CREAFIL  checks  for  file  prior  existence  (OPEN  as 
'OLD')  before  creating  the  file  b,  using  an  OPEN  as  'NEW'  and  'DIRECT'  with 
specified  record  length  and  file  length.  The  check  for  prior  existence  is 
because  the  VAX  allows  creation  of  a  new  version  of  an  existing  file 
without  producing  an  error  message.  Subroutine  FILEREN  required  extensive 
rewriting.  The  name  of  the  file  on  the  input  logical  unit  is  determined 
using  an  INQUIRE;  the  logical  unit  is  closed;  the  file  is  renamed  by  a 
system  library  function;  and  the  file  (under  either  the  new  or  old  name)  is 
reOPENed  on  the  logical  unit.  Subroutine  FILECLS  consists  of  only  the 
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FORTRAN  CLOSE  function.  Subroutine  MODAP  is  a  stub  with  no  executable  sta¬ 
tements.  Finally,  subroutine  VAXERR  accepts  an  error  number,  prints  to  the 
screen  its  meaning  (if  known),  and  reports  back  whether  a  meaning  was 
printed. 

The  file  FUNCTION  contains  the  mathematical  functions  routine  RLFUNC 
used  in  option  8.  It  was  modified  to  run  faster  by  simple  rearrangement  of 
some  of  the  code.  A  logic  error  was  also  detected  that  caused  an  infinite 
loop  for  partially  active  data;  this  was  corrected  in  both  versions.  It 
still  uses  Flex. 

The  file  HELP  contains  the  help  routine  HELP. 

The  file  MERGERL  contains  the  rel ati on-merging  routine  MERGRL.  It  now 
provides  a  progress  report  every  20  lines  during  the  add  (A)  function. 

The  file  MODCOLUM  contains  the  column-modification  routine  MODCOL.  It 
was  substantially  unchanged,  and  still  relies  heavily  on  Flex. 

The  file  NEWRELAT  contains  the  relation-creation  routine  NEWREL.  It 
was  changed  only  slightly  and  still  relies  heavily  on  Flex. 

The  file  PRINTREL  contains  the  printing  routine  PRINTREL  used  in 
option  8.  It  was  changed  to  account  for  text  length  differences.  It  still 
relies  heavily  on  Flex. 

The  file  REORGREL  contains  the  relation-reorganization  routine 
REORGRL. 

The  file  RETRIEY7  contains  the  retrieve/manipulate/plot  function 
RETEVD,  which  is  option  8.  Most  modifications  were  implemented  to  improve 
readability  of  the  code  or  feedback  to  the  user,  but  some  logic  errors  were 
also  eliminated.  A  warning  and  request  for  verification  were  added  to  the 
delete-tuples-after-move  option  on  the  move  command  (M).  It  relies  heavily 
on  Flex. 

The  file  S0RT2  contains  five  routines  in  support  of  the  sort  function 
used  in  option  8.  The  CSORTF  routine  builds  a  file  containing  the  tuple 
number  and  the  tuple  as  text  data  from  the  designated  column;  it  was  not 
changed  and  still  relies  heavily  on  Flex.  The  SORTFL  routine  was  substan¬ 
tially  rewritten  and  details  appear  in  the  next  section.  The  supporting 
routines  SORTFA,  ASCTYP,  ASCCHR  are  new  and  include  only  two  instances  of 
Flex. 

The  file  TPFILECR  is  a  library  of  routines  related  to  file  creation. 
Unless  noted,  changes  are  for  readability  and  feedback  only.  Subroutine 
FILOES  inquires  directory  name  (calling  it  "volume  name"),  verifies  lega¬ 
lity,  updates  the  default  volume  name  if  appropriate,  and  builds  an 
extended  name  of  volume  and  filename  and  period.  FILDES  needed  substantial 
modification  to  handle  the  changes  in  names  on  the  VAX.  The  handling  of 
the  "default  directory"  message  was  ad  hoc,  and  should  be  changed  in  later 
revisions.  SECURE  gets  the  read/write  keys,  but  is  not  called  on  the  VAX; 
it  could  be  replaced  by  a  stub.  EMIARY  just  writes  zeros  into  an  array;  it 
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now  consists  of  a  DO  loop.  ADFCRE,  TDFCRE,  and  TFCRE  add  the  appropriate 
extension  to  the  base  relation  name  and  create  the  file  via  CREAFIL.  RELFC 
just  calls  these  three  routines.  ADFDEL,  TDFDEL,  and  TFDEL  add  the 
appropriate  extension  to  the  base  relation  name  and  delete  the  file  via 
FILEDEL.  RELFD  just  calls  these  three  routines.  EQUIVI  copies  N  words 
from  one  array  Into  another;  It  now  consists  of  a  pretest  and  a  DO  loop. 
OPNADF,  OPNTDF,  and  OPNTF  add  the  appropriate  extension  to  the  base  rela¬ 
tion  name  and  open  the  file  on  the  specified  logical  unit.  FILERR  checks 
for  recognized  FORTRAN  error  numbers,  but  is  somewhat  machine  dependent. 
NAME  gets  a  relation  name  of  not  more  than  42  characters,  which  is  later 
"hashed"  to  make  the  file  name.  All  of  these  routines  were  originally 
Flex,  but  some  have  been  altered  to  remove  some  of  the  vestiges.  The  OPNTF 
routine  originally  used  a  FORTRAN  COMMON  area  for  building  the  extended 
name.  However,  the  RETEVD  function,  which  calls  OPNTF,  used  the  same 
COMMON  for  another  purpose,  and  the  conflict  resulted  in  system  malfunc¬ 
tions.  As  a  result,  OPNADF,  OPNTDF,  OPNTF,  ADFCRE,  TDFCRE,  TFCRE,  ADFDEL, 
TDFDEL,  and  TFDEL  were  modified  to  eliminate  use  of  the  COMMON.  This 
change  to  local  arrays  caused  no  change  in  the  size  of  the  .obj  file  and 
reduced  the  size  of  the  .exe  (executable)  file. 

The  file  TPLIB1  is  a  library  of  text  and  number  manipulation  routines. 
Few  changes  were  necessary  in  this  file,  and  most  routines  rely  heavily  on 
Flex.  STRLEN  reports  the  length  of  a  string  and  copies  it  to  FEASIL  for¬ 
mat.  FTIPI  converts  a  floating  point  (real)  number  to  pseudo-integer  by 
saving  it  to  memory  as  "real"  and  reading  it  back  as  an  integer;  an 
EQUIVALENCE  installed  in  a  rewrite  about  1984  simplified  the  code  and  made 
it  portable.  PITFP  converts  pseudo- integer  to  real  by  the  same  approach. 
YESNO  demands  from  the  user  an  answer  of  YES  or  NO  (Y  or  N);  it  still  uses 
FEASIL  string  manipulation  techniques.  Subroutine  GETNUM  gets  text  in 
alpha-numeric  form  from  the  user  and  converts  it  via  REANUM.  REANUM  con¬ 
verts  text  to  the  corresponding  integer  value.  ELEB  eliminates  leading 
edge  blanks  by  shifting  the  FEASIL  format  text  left.  ENFPTA  converts  real 
numbers  to  FEASIL  string  format.  ENINTA  does  the  same  for  integers.  GETFP 
converts  a  text  number  from  the  terminal  into  floating  point.  REAFP  does 
the  actual  conversion.  All  of  the  routines  in  this  library  use  the  GET 
routine  to  read  characters  from  the  terminal. 

The  file  TPLIB2  is  a  library  of  routines  for  file  access.  Few  changes 
were  necessary;  about  half  of  the  routines  are  pure  F77.  Routines  PUTTDF 
and  RTVTDF  open  the  TDF  file  via  OPNTDF,  write  or  read  the  file,  respec¬ 
tively,  and  close  the  file  via  FILECLS.  ADDTUP  adds  a  tuple  to  an  existing 
relation.  DELTUP  removes  a  tuple.  PUTIFO  puts  data  into  the  .ADF  or  .TF 
as  appropriate  for  the  data  strategy.  PTFRC  and  PADFRC  write  data  to  the 
.TF  and  .ADF  files,  respectively.  If  the  string  sent  to  PADFRC  is  shorter 
than  8  characters  and  an  override  has  not  been  declared,  then  PADFRC  will 
return  a  signal  and  two  words  to  be  stored  in  the  TF.  RTFRC  and  RADFRC 
read  data  from  the  .TF  and  .ADF  files  respectively.  COLNAM  gets  the  name 
of  a  specified  column  from  the  .ADF  file.  HASHIT  computes  the  file  name  by 
hashing  the  relation  name.  The  first  four  letters  of  the  hash  name  are  the 
same  as  for  the  relation  name;  the  fifth  is  a  length  signal;  the  sixth  and 
seventh  are  a  hash  of  relation  name  characters  5  to  42;  and  the  eighth 
letter  is  'A'.  It  was  modified  recently  (1985)  to  use  an  algorithm  which 
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reduces  hashing  collisions;  the  P-E  version  checks  to  see  If  a  file  from 
the  previous  version  exists  and  recommends  conversion.  UTFAR  converts  the 
two  TF  words  Into  a  1  to  7  character  FEASIL  format  string  Into  the  ADF 
buffer.  Inverting  the  TF  storage  mode  of  PADFRC. 

The  file  TPLIB3  Is  a  library  of  routines  for  file  maintenance.  RDOADF 
and  RDOTF  create  a  larger  .ADF/.TF  file,  copy  the  old  Information  Into  It,  and 
delete  the  old  version.  CPYREL  copies  both  the  .ADF  and  .TF  files  Into  a  new 
name.  FSLIDE  shifts  an  array  downward  one  word  and  Is  used  to  convert 
FEASIL  format  text  Into  FORTRAN  format.  Only  slight  changes  have  been  made 
from  the  original  Flex  text. 

Some  additional  tools  have  been  built  as  part  of  the  conversion  pro¬ 
cess.  NAMES  examines  an  existing  relation,  reports  the  long  name,  and 
prints  a  macro  to  rename  the  relation  to  the  new  hash  code  from  either  the 
original  "hash"  or  the  original  name.  QUICK  Is  a  VAX  program  to  convert  a 
tape-transferred  relation  from  P-E  tape  format  (copied  to  the  disk  first 
using  MOUNT/FOREIGN  and  COPY)  to  a  standard  relation.  The  command  file 
which  does  the  copy  and  calls  QUICK  Is  named  FEASILTAPE.  A  relation  repair 
function  named  PATCH  is  under  development. 


-  -  - ' 
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5.0  REVISED  SORT  PROGRAM  AND  TIMING  TESTS 
5.1  Introduction 


Users  have  long  complained  of  the  slowness  of  the  SORT  function,  and 
it  has  been  speculated  that  this  is  due  to  the  frequent  disk  accesses  of 
the  file-to-file  algorithm.  When  an  attempt  was  made  to  run  the  original 
algorithm  on  the  VAX,  the  machine  malfunctioned.  It  was  then  decided  to 
modify  the  routine.  The  original  sort  program  operated  in  two  phases,  (1) 
copying  of  the  tuple  number  and  the  data  from  the  designated  column  to  a 
sort  file  SF  in  CSORTF  and  (2)  sorting  of  the  data  in  SORTFL.  These  two 
routines  were  called  in  sequence  by  the  RETEVD  routine.  In  order  to  pre¬ 
serve  modularity,  all  changes  were  made  internal  to  the  SORTFL  routine. 

5.2  Revised  SORT  Technique 


Three  acceleration  measures  were  instituted  simultaneously.  They  were 
an  in-memory  routine  for  small  data  sets,  a  different  buffering  scheme  for 
other  sorts,  and  code  tightening.  The  new  SORTFL  routine  first  builds  file 
names  and  opens  the  SF  to  a  logical  unit.  If  the  strategy  is  nonstring  and 
the  tuple  count  is  less  than  1000,  it  calls  SORTFA  to  do  the  in-memory  sort 
and  then  returns.  Otherwise,  it  creates  two  scratch  files  11  and  12.  If 
the  text  is  nonstring,  the  records  of  these  files  are  only  two  words  wide. 
The  SF  is  then  copied  into  11,  and  the  data  is  sorted  using  11  and  12  as 
"ping-pong"  buffers.  When  the  sort  is  completed,  the  data  is  transferred 
back  to  the  SF  as  text,  the  files  are  closed  (and  scratch  files  deleted), 
and  the  program  returns. 

The  sort  algorithm  now  used  is  a  weaving  bubble  sort.  Sorting  starts 
at  the  bottom,  and  the  largest  value  is  carried  to  the  top,  remembering 
when  the  last  swap  occurred.  Next,  from  the  point  of  the  last  swap,  the 

smallest  value  is  carried  to  the  bottom,  again  remembering  the  last  swap 

point.  The  swap  points  are  the  new  limits  for  later  passes,  and  execution 
can  stop  when  they  meet.  The  sort  code  reports  the  number  of  data  values 
swapped  every  100  passes  to  maintain  user  confidence  that  the  program  is 
still  running. 

The  fast  in-memory  sort  SORTFA  also  uses  the  weaving  bubble  sort,  but 

does  not  need  scratch  files.  It  was  decided,  for  code  compactness,  to  have 

only  one  sort  sequence  and  make  the  order  decision  based  on  strategy.  The 
use  of  logical  variables  and  logical  assignment  statements  and  comparisons 
also  aided  compactness. 

Two  auxiliary  functions  were  added  to  aid  the  sort.  ASCTYP  returns  an 
integer  value  to  indicate  whether  the  character  input  is  (1)  a  blank,  (2)  a 
capital  le4*er,  (3)  a  lower  case  letter,  (4)  a  digit,  or  (5)  something 
else.  This  appeared  to  be  close  to  the  original  sequence,  but  there  was 
some  evidence  that  digits  should  precede  letters  instead.  If  some  other 
sorting  sequence  is  desired  in  the  future,  this  routine  could  be  modified 
easily.  ASCCHR  accepts  two  character  values  cl,  and  c2,  and  returns  a 
logical  value  of  .TRUE,  if  cl  is  less  than  or  equal  to  c2.  ASCCHR  uses 
ASCTYP  to  separate  nonsimilar  characters. 
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5.3  SORT  Improvement  Quantification 

The  new  version  appears  to  require  less  memory.  The  rewrite  reduced 
the  .FIX  file  from  953  to  884  lines,  and  the  derived  .FOR  (FORTRAN)  file 
from  648  to  500  lines.  The  .OBJ  file  which  contains  resulting  assembly 
code  and  linkage  information  was  reduced  from  32  to  31  blocks,  a  negligible 
difference  but  still  a  reduction. 

The  major  difference  is  in  speed.  The  new  algorithm  requires  about  10 
seconds  for  the  CSORTF  conversion  and  un-conversion,  and  23  seconds  to  sort 
500  random  floating  point  numbers  (263  passes).  The  old  algorithm  took  10 
+  600  seconds.  This  is  a  factor  of  20  to  25  speed  improvement.  For  larger 
data  sets,  the  operating  system  handies  buffering  and  the  nonstring  records 
are  packed  many  to  a  disk  block,  instead  of  singly.  This  results  in  fewer 
disk  accesses  and  greater  speed  of  execution.  String  data  appeared  to  sort 
slightly  faster,  but  this  is  hard  to  measure  on  a  multiuser  system. 


6.0  FEASIL  DESIGN  SUMMARY 


A  major  effort  was  Initiated  under  a  previous  task  to  complete  examine 
the  bo<Jy  of  FEASIL  code  through  flow  charting  It.  This  effort  greatly 
assisted  the  transfer  process  through  Identification  of  dormant  errors  In 
FEASIL  code.  The  flow  charts  are  presented  In  Appendices  A  through  T. 

They  should  prove  to  be  a  valuable  tool  In  the  analysis  of  errors  still 
hidden  In  the  VAX  implementation.  They  should  also  assist  In  the  refine¬ 
ment  process  that  will  inevitably  follow  this  effort. 


7.0  CONCLUSIONS  AND  RECOMMENDATIONS 


Limited  testing  reveals  no  errors,  so  the  system  appears  ready  for 
production  work.  As  with  any  large  software  system,  problems  will  appear 
from  time  to  time  and  can  be  treated  as  they  are  revealed.  Recommendations 
for  future  effort  can  be  divided  Into  two  areas,  enhancement  and  rewrite. 

Several  functions  could  be  added  to  the  FEASIL  DBMS  to  enhance  Its 
power.  The  most  powerful  function  would  be  a  mathematical  function  to  com¬ 
pute  a  linear  or  nonlinear  function  of  two  columns  and  store  the  result  in 
a  third  cblumn.  Small  changes  that  might  aid  the  user  would  Include 
modifying'the  HELP  function  to  loop,  offering  Its  menu  again,  until  the 
user  selects  "quit." 

Small  Invisible  code  changes  which  would  Improve  performance  Include 
(1)  Increasing  the  buffer  size  In  SORTFA  and  (2)  when  deleting  tuples  in 
the  edit  function,  delete  the  one  with  the  highest  number  first.  The 
current  tuple  delete  function  removes  the  lowest  numbered  one  and  shifts 
all  tuples  above  it  downward;  It  then  deletes  the  next  one.  If  a  relation 
Is  100  tuples  long  and  tuples  11  to  100  are  being  deleted,  then  tuple  11  is 
removed,  all  89  remaining  are  shifted,  the  new  tuple  11  is  removed,  all  88 
remaining  are  shifted,  ....  In  the  same  case  with  the  suggested  change,  no 
shifts  would  occur  and  thousands  of  disk  accesses  would  be  eliminated. 

FEASIL  has  evolved  into  a  powerful  tool.  It  would  be  desirable  to 
eventually  port  FEASIL  to  the  HP  9000,  the  IBM  PC,  and  several  other  com¬ 
puters.  However,  the  flowcharting  and  VAX  conversion  efforts  have  revealed 
some  problems  that  impact  on  portability. 

FEASIL  was  originally  written  in  Flex  on  a  machine  subject  to  frequent 
malfunctions.  Several  compromises  were  made  as  a  result. 

(1)  Most  file  accesses  (read  or  write)  are  preceeded  by  an  open  and 
followed  by  a  close;  the  overhead  and  disk  accesses  of  these  opens  and  clo¬ 
ses  can  slow  down  a  program  significantly. 

(2)  The  string  handling  capabilities  of  Fortran  77  were  not  available, 
and  several  activities  were  performed  in  a  difficult  fashion.  For  example, 
a  16-character  string  can  be  shifted  left  one  character  in  F77  by 

str  =  str( 2:16)  , 

or  the  eighth  letter  of  a  file  name  can  be  changed  from  'A'  to  ' B '  by 

f 1 1 e(8:8)  =  'B' 

Other  similar  operations  are  as  simple.  HASHIT  was  written  using  the 
substring  capability  shown  and  is  much  more  compact  than  the  functionally 
equivalent  Flex  code  would  be. 
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(3)  As  In  any  evolving  program,  array  lengths  changed  with  time  and 
arrays  were  declared  as  IOENT(l)  In  subprograms;  this  forced  use  of  the 
LCONST  COMMON  and  variables  for  the  constants  from  0  to  30  to  bypass  the 
automatic  subscript  checking  of  FORTRAN. 

(4)  Ad  hoc  changes  have  crept  Into  the  code,  and  nesting  has  resulted 
In  redundant  or  contradictory  testing  for  certain  conditions.  For  example, 
two  consecutive  blocks  of  code  are  conditioned  on  the  same  test  In  OBSTAT 
rather  than  merging  the  blocks  and  only  testing  once. 

(5)  The  Flex  loop  construct  appears  frequently.  The  code 

I  =  0 

REPEAT  UNTIL  (I.EQ.N-1) 

A( 1+1)  =  0. 

1  =  1  +  1 

FIN 


results  in  FORTRAN  code  similar  to 

I  =  0 

GO  TO  99999 

99998  IF ( I  .EQ.N-DGO  to  99997 

99999  A( 1+1)  =  0. 

1  =  1  +  1 

GO  TO  99998 

99997  .... 

rather  than  the  F77  code  of 

DO  10  I  =  1,  N 

10  A(  I )  =  0. 

which  will  probably  compiles  to  more  compact  and  faster  assembly  language 
code. 

(6)  Some  of  the  routines,  such  as  EDTREL,  have  evolved  to  over  1000 
lines.  Even  with  the  use  of  Flex  macrofunctions,  this  is  a  larger  amount 
of  code  based  on  the  same  global  variables  than  the  average  programmer  can 
grasp.  Reduction  of  program  unit  size  and  more  use  of  subprograms  would 
simplify  the  code. 

(7)  Several  functions  implemented  as  Flex  macros  occur  in  multiple 
top-level  routines.  For  example,  both  EDTREL  and  RETEVD  (main  menu  options 
4  and  8)  ask  for  a  column  number.  This  is  just  a  request  for  a  number 
within  a  certain  range,  and  could  be  Implemented  trivially  as  an  Integer 
FORTRAN  FUNCTION  in  a  library. 

(8)  Several  routines,  such  as  TFDEL ,  ADFDEL,  and  TDFDEL  differ  only  in 
one  location.  A  generic  routine  would  reduce  code  space  by  nearly  a  factor 
of  3;  the  routine  could  even  be  called  by  the  existing  routines,  each  of 
which  could  be  reduced  from  24  to  5  lines. 


(9)  Flowcharting  revealed  that  several  routines  frequently  appear  In 
sequence.  A  new  routine  Implementing  the  entire  function  would  shorten  the 
calling  program  and  Improve  readability.  For  example,  a  new  routine  EXTEND 
could  call  EQUIV1,  CATSTR,  and  FSLIDE  to  create  an  extended  name  from  the 
specified  base  name  and  specified  extension.  This  would  cost  one  6-1 Ine 
routine  but  reduce  dozens  of  triple  calls  to  single  highly  readable  calls. 

(10)  Given  one  machine.  It  was  not  obvious  which  routines  were  really 
machine  dependent,  and  such  functions  occur  In  many  places.  For  example, 
the  read/write  keys  should  be  requested  In  a  machine-dependent  subprogram. 
Similarly,  all  questions  could  be  asked  through  a  subroutine  QUEST  which 
prints  the  test  without  a  carriage  return  (If  the  machine  allows  such  an 
option).  A  logical  function  QUESYN  could  call  QUEST  to  provide  the  text 
and  then  call  YESNO  to  demand  a  yes  or  no  answer. 

A  complete  top-down  restructuring  of  the  code  Is  recommended. 
Guidelines  would  include  (1)  pure  portable  Fortran  77  code  consistent  with 
the  standard,  (2)  copious  use  of  comments  In  the  code,  (3)  routines  rarely 
longer  than  2  pages  including  the  Imbedded  comments  (header  comments  do  not 
count),  (4)  addition  of  new  functions/routines  whenever  appropriate,  and 
(5)  restructuring  of  the  libraries  to  minimize  runtime  size  and  to  place 
machine-dependent  code  in  as  few  files  as  possible.  Implementation  of 
guideline  1  along  would  result  in  an  estimated  code  reduction  as  shown  in 
Table  4;  the  quantitative  benefits  of  the  other  guidelines  have  been  esti¬ 
mated. 

Two  additional  recommendations  are  related  to  "user-friendl iness" . 

They  are  (6)  any  potentially  dangerous  or  time-consuming  activity  should 
offer  a  'punt'  option,  and  (7)  new  algorithms  should  be  considered  for 
time-consuming  activities.  The  code  should  also  allow  graceful  exits  from 
accidentally  chosen  paths,  lest  the  user  be  stuck  in  an  infinite  question- 
answer  loop  that  can  only  be  exited  by  damaging  the  relation  or  by  killing 
the  program  and  losing  all  previous  work.  Similarly,  any  activity,  such  as 
sort,  which  could  take  hours  to  perform  should  offer  a  graceful  exit  after 
providing  a  time  estimate;  the  user  may  prefer  an  unsorted  list  now  rather 
than  a  sorted  list  in  three  hours  (or  even  fifteen  minutes).  The  rewrite 
of  SORT  was  a  start  toward  algorithm  improvement,  but  room  exists  for  more 
improvement. 

Implementation  of  FEASIL  on  the  VAX  has  greatly  improved  the  use- 
fullness  of  the  system.  Reduced  execution  time  and  more  reliable  data 
handling  has  greatly  increased  its  acceptance  by  users.  Continued  refine¬ 
ment  and  elimination  of  any  errors  that  may  remain  should  guarantee  user 
acceptance  in  the  future. 
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TABLE  1  SUBPROGRAM  CALLS  OF  FEASIL  ROUTINES 


name  called  by  (*“dlrectly,  digit-indirectly) 

newrel  *  !  main  menu  routines  (one  routine  per  file) 

delrel  *  . ! 

edtrel  *  . . ! 

modcol  *  . . . ! 

mergrl  *  . . . . ! 

rorgrl  * .  ! 

retevd  * . ! 

bkuprl  * . ! 

dbstat  * . ! 

help  * . ! 

rdoadf  1  .  .....  !  edtrel  support  routines  (library  routines) 

rdotf  1  ..* . ! 

putif o  1  . .  * . . .  . . ! 

cpystr  1  . ! 


rlfunc  1 . * .  !  retevd  support  routines  (separate) 

dsplay  1 . * . ! 

printrell . * . ! 

csortf  1 . * . ! 

sortf  1  I . * . ! 

asctyp  2  . *t 

ascchr  2 . *t 

sortf a  2  . *t  (all  routines  below) 

cpyrel  1 . * . !  (  are  in  libraries  ) 

ftipl  l  .  * .  t  format  conversion  routines 

pltfp  l  .  .* . *.**..  t 

enfpta  1  .  .  .  .  i . *.  .  .  ! 

eninta  1  .1 . *.  .  .  .! 

utfar  l  ..*.*** . **.  .  .  t 

eleb  2  ..11 . ** .  **! 

name  1  *****  ****.  . .  !  file  identification  and 

hashit  1  *****  **** . !  confirmation  routines 

fildes  l  *1***  .*** . * . !  (fildes  also  called  by  relfd) 

yesno  1  ****.  .  *** . .*... . ! 


MAIN  rorgrl  rlfunc  name 

retevd  dsplay  hashit 

newrel  bkuprl  printrel  fildes 

delrel  dbstat  csortf  yesno 

edtrel  help  sortfl 

modcol  cpyrel 

mergrl  rdoadf 

rdotf  enfpta 


pu . ' f o  eninta 


cpystr  eleb 


TABLE  1  SUBPROGRAM  CALLS  OF  FEASIL  ROUTINES  (continued) 
name  called  by  (*»directly,  digit-indlrectly ) 


relfc 

I 

*. ... 

t 

relatlon/tuple  operations 

relfd 

1 

.*. .. 

•  •  *  •  • 

. ! 

addtup 

1 

**... 

. . ! 

deltup 

1 

.*... 

...! 

colnam 

1 

*  #  *** 

**.  *. 

. . . .  ! 

adfere 

1 

1  - 11  * 

***. . 

*.  .  . 

. * 

*.... 

» 

adf/tdf/tf  operations 

tdf ere 

1 

.1..* 

***. . 

•  «  •  «  •  • 

.*... 

tf  ere 

1 

1.1.* 

***. . 

•  *.  • 

. * 

*. ... 

** 

adfdel 

1 

*1... 

**. .. 

«»»•»» 

. ! 

tdfdel 

1 

*1111 

*111. 

.  *•  • 

" 

tfdel 

1 

*1... 

**. . . 

•  •  •  • 

adf/tdf/tf  operations 

radfre 

1 

l.*l* 

***1. 

.1 . . . . 

•  •  •  • 

•  •  .  •  * 

J 

rtvtdf 

1 

.  .*** 

****. 

•  •  •  • 

•  •  •  •  • 

#  J 

rtfre 

1 

.  .*** 

***.  . 

.  .  *. 

**. 

. . ! 

padfre 

1 

***** 

***. . 

•  •  •  •  • 

... ! 

puttdf 

1 

*#  *** 

***.  . 

•  •  •  •  • 

•  • 

1 

ptfre 

1 

..**1 

11*. . 

*  * 

.  .  **. 

•  « 

1 

adf/tdf/tf  open 

opnadf 

2 

11111 

1112. 

*.  -  . 

.2**. * 

•  •  •  •  X 

•  « 

*..*..  ! 

opntdf 

2 

1.111 

un. 

.*..*.  ! 

opntf 

2 

.  .Ill 

in. . 

.*1. 

#  ***#  * 

..11. 

..*..*  ! 

file  ops  and  misc 

creaf il 

1 

.  .221 

in. . 

11. . 

...**1 

11. . . 

*. 

f  ilecls 

1 

11*11 

1**1. 

**1  . 

****** 

..Ill 

•  , 

***#  **  #  £ 

f  ileren 

1 

.  .11. 

*. . . . 

**.  . 

•  . 

f ilerr 

l 

12113 

11*3. 

**2  . 

.111.1 

.1. . 

**222 

.* 

111111  *  t 

emiary 

1 

*1  *i  * 

***1 . 

**2 . 

*1*1.1 

*1  *. 

11222 

** 

111111  *  t 

equivi 

1 

u*n 

**11. 

*★2 . 

*1*1.1 

11* 

*1.. 

11222 

** 

111111  *  t 

filedel 

1 

i.u. 

**22. 

**.  . 

.  .  .  **. 

.1.. 

.1. . . 

.  * 

......  .  ! 

f ileopn 

1 

22222 

1*33. 

112. 

*****1 

.  2 . . 

.2222 

.1 

min  *  *t 

MAIM  rorgrl  rlfunc  name  -ere  opn- 

retevd  dsplay  hashit  -del 

newrel  bkuprl  printrel  Hides  filedel 

delrel  dbstat  csortf  yesno  radfre 

edtrel  help  sortfl  rtvtdf 

modcol  cpyrel  relfc  rtfre 

mergrl  rdoadf  relfd  padfre 

rdotf  enfpta  addtup  puttdf 

putifo  enlnta  deltup  ptfre 

cpystr  eleb  colnara 
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TABLE  1  SUBPROGRAM  CALLS  OF  FEASIL  ROUTINES  (continued) 


$ 

i 


name  called  by  (*-directly,  digit-indlrectly) 


SeLI  P 
reafp 

1 

•  •  •  • 

.  .  *. . 

.1... 

,  ,  ,  , 

•  •  »  » 

•  •  a  a 

a  a 

a  a 

getnum 

1 

*.**. 

.**. . 

a  a  a  a 

***... 

•  •  • 

•  a  a  • 

reanum 

1 

l.*l. 

.11.. 

•  •  •  • 

111... 

•  ■  • 

•  •  a  • 

getch 

1 

11*11 

1*11. 

11. . 

1.*... 

11. 

*.  *. 

get 

1 

1*11* 

•  •  ■  • 

11*... 

•  •  • 

*.  ** 

streq 

1 

.  **1* 

•  •  X  •  •  • 

...* 

strlen 

1 

** * 

1*11* 

11*... 

•  ■  • 

cpysub 

1 

n*i* 

**11. 

**.  . 

*.*... 

11* 

.*.* 

catstr 

1 

11*11 

**11. 

**.  . 

*1***1 

•  •  • 

.**. 

11222 

** 

mm 

*  # 

catsub 

1 

22*21 

1122. 

11.* 

121112 

221 

•  Ill 

22333 

11 

222222 

1  . 

f slide 

1 

..11. 

.*... 

**.  . 

*..**. 

•  •  • 

a  a  a  • 

•  • 

a  • 

chtyp 

1 

11*11 

1*111 

11.. 

111*. * 

11* 

*.11 

•• 

•  • 

MAIN 

rorgrl 

rlfunc 

name 

-ere 

opn- 

!  keyboard  input 
*! 


l**j 

1*1*! 


string  ops 


retevd  c 
newrel  bkuprl 
delrel  dbstat 
edtrel  help 
modcol 

mergrl  rdoadf 
rdotf 


dsplay  hashit  -del 
printrel  fildes  filedel 

csortf  yesno  radfrc 

sortfl  rtvtdf  getfp 


csortf 

sortfl 

cpyrel 


rdotf  enfpta 
putifo  eninta 
cpystr  eleb 


relf  c 
relf  d 
addtup 
deltup 
colnam 


rtfrc  reafp 
padfrc  getnum 


streq 
strlen 
cpysub 
catstr 
catsub 
f slide 
m  chtyp 


puttdf  reanum 
ptfrc  getch 


Note  1:  The  symbol  to  the  right  of  each  line  indicates  the  type  of  routine: 

!  calls  others 

t  terminal  routine  (calls  no  others) 

m  machine-dependent  (only  system  calls  or  assembly  language) 

Note  2:  Some  routines  are  included  in  the  source,  but  not  called: 
catnum  (calls  catstr,  putnum) 

closef 
f ilrenb 
hash 
modap 
newno 
opnrel 

put  (calls  catsub,  cpystr,  cpysub,  putch,  putnum) 
putch 

putnum  (calls  putch) 

secure  (calls  getnum)(called  by  fildes  on  the  P-E) 

strlt 


TABLE  2  SUBPROGRAM  LOCATIONS  FOR  FEASIL  ROUTINES 


name  file  (location) 


MAIN  daba08 

blockdata  daba08 

addtup  tplib2 

adfcre  tpfilecr 

adfdel  tpfilecr 

ascchr  sort2 

asctyp  sort2 

bkuprl  backuprl 

catstr  sc 

catsub  sc 

colnam  tplib2 

cpyrel  tplib3 

cpystr  sc 

cpysub  sc 

creafil  f7io 

csortf  sort2 

dbstat  dabaexit 

delrel  deletrel 

deltup  tplib2 

dsplay  dsplay 

edtrel  editrel7 

eleb  tplibl 

emiary  tpfilecr 

enfpta  tplibl 

eninta  tplibl 

equivi  tpfilecr 

fildes  tpfilecr 

filecls  f7io 

filedel  f7io 

fileopn  f7io 

fileren  f7io 

filerr  tpfilecr 

fslide  tplib3 

f tipi  tplibl 

getfp  tplibl 

getnum  tplibl 

hashit  tplib2 

help  help 


name  file  (location) 


mergrl  mergerel 

modap  f7io  (unused) 

modcol  modcolum 

name  tpfilecr 

opnadf  tpfilecr 

opntdf  tpfilecr 

opntf  tpfilecr 

padfrc  tplib2 

pitfp  tplibl 

printrel  printrel 

ptfrc  tplib2 

putifo  tplib2 

puttdf  tplib2 

radfrc  tplib2 

rdoadf  tplib3 

rdotf  tplib3 

reafp  tplibl 

reanum  tplibl 

relfc  tpfilecr 

relfd  tpfilecr 

retevd  retreiv7 

rlfunc  function 

rorgrl  reorgrel 

rtfrc  tplib2 

rtvtdf  tplib2 

secure  tpfilecr  (unused) 

sortfa  sort2 

sortfl  sort2 

strlen  tplibl 

tdfcre  tpfilecr 

tdfdel  tpfilecr 

tfcre  tpfilecr 

tfdel  tpfilecr 

utfar  tplib2 

yesno  tplibl 


Library  SC  is  part  of  Flex  (alternate  spelling  Flees);  we  cannot 
alter  the  code  for  these  routines. 


TABLE  3  FILE  CONTENTS  FOR  FEASIL  ROUTINES 


file 

contents 

(subprograms ) 

backuprl(P-E) 

bkup8tub(VAX) 

bkuprl 

bkuprl 

daba08 

MAIN 

block  data 

dabaexit 

dbstat 

deletrel 

delrel 

dsplay 

dsplay 

editrel7 

edtrel 

f  7io 

creaf il 

filecls  modap 

filedel 
f ileopn 
f ileren 

function 

rlfunc 

help 

helo 

mergerel 

mergrl 

modcolum 

n t ^ r  f. 

printrel 

modcol 

ntwrt  /a+~ 

printrel 

retreiv7 

retevd 

reorgrel 

rorgrl 

sc 

catstr 

cpystr 

catsub 

cpysub 

sort2 

csortf 

sortfl  ascchr 

vaxerr(vax  only) 


asctyp  sortfa 
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TABLE  .3  FILE  CONTENTS  FOR  FEASIL  ROUTINES  (continued)  £fl 

file  contents  (subprograms) 


tpfilecr 

adf ere 
adf del 
tdfere 
tdf del 
tfere 
tfdel 

relf  c 
relfd 

opnadf 

opntf 

opntdf 

emiary 

equivi 

filerr 

f ildes 

name 

secure 

tplibl 

eleb 

enfpta 

eninta 

f  tipi 
pitfp 

getnum 

getfp 

reanum 

reafp 

strlen 

yes  no 

tplib2 

addtup 

deltup 

padfre 
putif o 
puttdf 

radf rc 

rtfre 

rtvtdf 

colnam 
hashit 
utf  ar 

tplib3 

cpyrel 

f slide 

rdoadf 

rdotf 

21 
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k 

i 

1 
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TABLE  4.  CURRENT  SIZES  AND  ESTIMATED  REWRITE  SIZE 


lines  now 

estimated 

file 

subprogram 

total  code 

lines  in  F77 

Zchange 

daba08 

MAIN 

159 

87 

84 

3- 

block  data 

96 

70 

62 

11- 

dabaexit 

dbstat 

330 

218 

203 

6- 

deletrel 

delrel 

46 

27 

24 

10- 

dsplay 

dsplay 

685 

505 

450 

10- 

editrel7 

edtrel 

2213 

1298 

1147 

12- 

f7io 

creaf il 

53 

29 

28 

f ilecls 

12 

4 

4 

file del 

33 

15 

14 

fileopn 

52 

20 

18 

f ileren 

43 

24 

24 

mo  dap 

4 

3 

3 

vaxerr 

169 

161 

161 

total 

377 

253 

249 

1- 

function 

r lfunc 

310 

197 

157 

21- 

tnodcolum 

modcol 

607 

306 

234 

24- 

newrelat 

newrel 

469 

264 

230 

13- 

printrel 

printrel 

1048 

725 

629 

13- 

retreiv7 

retevd 

1780 

1007 

891 

12- 

sor  t2 

asctyp 

28 

11 

10 

10- 

ascchr 

34 

16 

16 

0 

csortf 

180 

106 

92 

13- 

sor  tf  a 

165 

100 

94 

4- 

sor tf 1 

448 

260 

250 

4- 

tpf ilecr 

adf ere 

32 

12 

15 

adfdel 

40 

19 

22 

emiary 

13 

5 

5 

equivi 

15 

7 

7 

f ildes 

89 

53 

48 

f  Herr 

52 

47 

10 

name 

64 

31 

23 

opnadf 

53 

20 

23 

opntf 

53 

20 

5 

opntdf 

53 

20 

5 

relf  c 

62 

38 

33 

relfd 

59 

25 

22 

22 
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TABLE  4.  CURES NT  SIZES  AND  ESTIMATED  REWRITE  SIZE  (coot. ) 


lines  now 


estimated 


file 


tplibl 


Cpllb2 


tplib3 


subprogram 

total 

code 

lines 

in  F77 

secure 

34 

30 

30 

tdfcre 

32 

12 

5 

tdfdel 

40 

19 

5 

tfcre 

32 

12 

5 

tf  del 

40 

19 

5 

total 

802 

389 

268 

eleb 

46 

28 

14 

enfpta 

53 

32 

27 

eninta 

26 

11 

10 

ftipi 

15 

6 

6 

getfp 

35 

14 

14 

getnum 

29 

8 

8 

pltfp 

13 

6 

6 

reafp 

225 

144 

20 

reanum 

156 

89 

20 

8trlen 

78 

37 

21 

yes  no 

59 

29 

24 

total 

774 

404 

170 

addtup 

59 

20 

14 

colnam 

24 

6 

6 

deltup 

47 

18 

12 

hashlt 

61 

43 

43 

padfrc 

103 

67 

66 

ptf  rc 

35 

11 

11 

putifo 

83 

43 

37 

puttdf 

40 

21 

17 

radfrc 

56 

25 

22 

rtfrc 

46 

17 

16 

rtvtdf 

38 

18 

14 

utf  ar 

47 

22 

21 

total 

668 

311 

279 

cpyrel 

108 

68 

59 

f slide 

26 

8 

8 

rdoadf 

135 

87 

76 

rdotf 

139 

83 

76 

total 

426 

246 

219 

ALL  TOTALS 

total  lines 

Including  comments 

10,845 

total  lines 

code 

6,800 

estimated  lines  if  FORTRAN 

77 

5,758 

estimated  code  reduction 

1,042 

estimated  code  reduction  percentage 
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APPENDIX  B 


RETEVD 


Subroutine:  RETRIEVE 


This  subroutine  allows  the  user  to  output  or  manipulate 
relations.  In  outputting' a  relation  the  user  may: 

1.  Print  data  in  a  relation 

2.  Retrieve  data 

3.  Create  a  relation  from  data 

4.  Plot  data  to  screen,  plotter,  or  printer 
In  manipulating  a  relation  the  user  may: 

1 .  Sum  columns 

2.  Average  columns 

3.  Calculate  the  mean  and  standard  deviation 


RETEVD 


RElEVD 


K-nDF(  3,0/6 


COLNAM 
Get  the  name 
of  column  1 


R ETEVD 


B-ll 


W V ’WW^MT& r/jiH'SFWI  W  IPJ TV 


RETEVD 


r 


Is  OK  -  true  ? 


R  El  EVP 
CHECK 
ACT  IV  I TY 


ACTEKR  »  true 


RETEVD 


v-, — u1  Mwwwwwww'wgiw^ 


RbTbVD 


.1.  At.' 


.22) 


(^)(p.22> 


Sort  On 
Column  ICC 


Find  String  Or 
Single  Character] 
CT  LT  Criteria 


s  FOUtC  -  true? 


Check 

Activity  File 
Opening 


there  any  errors  In 

I<ng  l-he  f<l»  ? - 


page  24) 


(page  24) 


(£) 


B-24 


Rh  I t VU 

OR  ACCLPTABL 


Increment  to 
the  next  recoi  1 
In  IREC 


Is  this  the  end  of  file? 


no 
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Kpege  25) 


REJfcVD 


STA  RT 


FIUSOPN 
Open  Che  sore 
file  .sn 


FIND  STRINb 
OR  SINGLE 
CHAhACT  t R 
GT  LT 
criteria 

PACE  26 


Scare  Search 


Is  Che  re  single  characeer 
S  strategy  ? 


(JMCT(l)-l 

«ACT(2)- 

FBCWT(2) 


GETtH 

Gee  Che  chare 
and  put  le  in 


moi  -  Cype  of 


Is  Che  characeer  type  4,5,or  7 


OK  -  erue 

/  \ 

OK  -  falsa 

n  y/  y*» 

ILK  -  0 

POUND  .  false 


.Is  FOUND  «  erue,  or 
\ ace  ehe re  no  remaining  records  or, 
\io  r  rna  Mni  IfX_»  O  7 


Read  a  record 
from  SF2  into 
nUP.IDUFMV, 


(page  27) 


\(page  27) 


(page  27), 


VYV; 


RF I  EVP 


HtC  STRING  OR  SINGLE  CHARACTER  CT  LT  CRITERIA 


\js  there  string  strategy? 


RETEVD 


i  i,ti  w uv- 


D 


RETEVP 

START  S  EARCH 

PACE  31 


2 
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Subroutine  :  FUNCTION  (Rlfunc) 


This  subroutine  provides  the  user  with  data  analysis  functions 
to  allow  analysis  of  sum  of  colum,  averaging,  mean  arri  standard 
deviation,  etc.  This  subroutine  is  constructed  that  more  functions 
may  be  easily  added  as  the  need  arises.  The  functions  available  are: 


1.  Total  Column  Data 


2.  Mean  and  Variance 


This  function  algebralically  adds 
the  active  records  of  a  relation 
for  the  colum  specified.  The  strategy 
must  be  integer  or  floating  point. 

This  function  computes  the  mean  ard 
variance  of  the  active  records  in  the 
specified  colum.  Output  is  the  mean 
and  standard  deviation. 
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APPENDIX  F 


Subroutine:  SORT 


This  subroutine  allows  the  user  to  organize  relational 
data  in  ascending  or  decending  order.  If  the  relation  to  be 
sorted  is  small  (1000  rows  or  less)  then  a  "fast*  sort  is 
done  in  core.  For  larger  relations,  a  general  file  to  file 
weaving  bubble  sort  is  implemented. 
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IT". 


Subroutine 


EDITREL 


This  subroutine  allows  the  user  to  change,  add,  delete, 
or  examine  tuple  data. 


The  following  edit  commands  are  available  to  the  user: 

< COMMAND >  <FUNCTION> 

? (STATUS)  GIVES  CURRENT  VALUES  OF  ROW  AND 

COLUMN  POINTERS, RELATION  NAME, 
NUMBER  OF  RECORDS  AND  NUMBER  OF 
COLUMNS 

Q (QUIT)  TERMINATES  EDITING 

C (COLUMNS)  LIST  NAMES  OF  EACH  COLUMN  BY 

NUMBER  IN  THE  RELATION 

+ [ ] (PLUS)  MOVES  CURRENT  ROW  POINTER 

FORWARD  [X]  ROWS (LAST  GIVEN  IF 
TOTAL  EXCEEDED) 1  IS  UNDERSTOOD 
IF  [0]  OR  [  ]  USED. 

-[] (MINUS)  SAME  AS  +  EXCEPT  IN  OTHER 

DIRECTION 

F (FIND)  FIND  THE  FIRST  OCCURANCE  OF  DATA 

ITEM  IN  SPECIFIED  COLUMN. 

S (SUBSTITUTE)  USER  SUBSTITUTES  NEW  DATA  INTO 

LOCATION  POINTED  TO  BY  CURRENT 
ROW  AND  CURRENT  COLUMN  POINTERS. 

E (EXAMINE)  DISPLAYS  TO  USER  CONTENTS  OF 

CURRENT  ROW  AND  COLUMN  POINTER 
LOCATION. 

D[] (DELETE)  DELETES  [X]  NUMBER  OF  TUPLES 

STARTING  WITH  CURRENT  TUPLE. 

NONE  DELETED  IF  NONE  SPECIFIED. 

I (INSERT)  INSERTS  TUPLE  AFTER  CURRENT  TUPLE 

POINTER.  PROMPTS  USER  FOR  COLUMN 
VALUES. 

B (BOTTOM)  SAME  AS  INSERT  ACCEPT  PLACES  TUPLE 

AT  BOTTOM. 


P[]  (PRINT) 


R( RE-START) 

H (HELP) 

A (ADD  TUPLES) 


PRINTS  [X]  TUPLES  OF  RELATION 
STARTING  WITH  OUTPUT  DATA  IN  A 
FORMAT  THAT  WILL  ALLOW  RE'ADD'ING 
BY  THAT  OR  ANOTHER  RELATION  WITH 
EQUAL  STRATEGIES  WITH  CURRENT 
TUPLE.  1  ASSUMED  IF  0  OR  BLANK. 

USER  MAY  RESTART  EDIT  PROCESS  TO 
CHANGE  DISPLAY  FORMAT. 

LIST  THE  POSSIBLE  COMMANDS 

READS  DATA  TUPLES  INTO  RELATION 
IN  FREE  FORMAT, CARD  IMAGE 
SEPARATED  BY  USER  DELIMITER. 


FEASIL 


EDITREL 

Subroutines  and  Procedures 


(Listed  in  the  order  in  which  they  appear  in  the  code.) 


Subroutine  or  Procedure  Name . Flow  Chart  Page  number 

I  Quit  .  Page  7 

Display  Help  .  Page  7 

check  if  Relation  Empty . Page  8 

Present  Relation  Status  .  Page  8 

Find  column  Display  Description . Page  9 

Insert  A  Tuple .  Page  11 

Delete  Tuples . Page  12 

Add  Tuples  At  Bottom . Page  13 

Print  Data  . rage  14 

Print  Variable  Length  Output  . Page  15 

Generate  Write  statement  Maybe  Column  Names  ....  Page  16 

Add  Tuple  Data  To  Block  .  Page  17 

nestart  Description  .  Page  18 

Move  Tuple  Pointer  Forward  . . Page  19 

Get  Next  Tuple  .  Page  20 

Move  Tuple  Pointer  Backwards  . .  Page  20 

Find  Value  . Page  21 

Substitute  New  Value  . .  Page  25 

Examine  Current  Values  . . Page  26 

Idle  and  Do  Nothing  . Page  26 

Present  Current  Value  .  Page  27 

Get  Column  Number  . Page  27 

Get  Value  or  String  .  Page  28 

Insert  Tuple  Data  . Page  32 

Display  Selected  Tuple  Values . . . Page  34 

Check  TF  Allocation . Page  34 

Add  Data  Tuples  To  ^elation  .  i.age  35 

Process  All  Cards  . Page  40 

Input  As  Non  otring  .  rage  43 

Copy  String  Between  Delimiter . Page  46 


t'l 


Find  The  Next  Delimiter . . .  page  46 

Read  The  Next  Data  v,ard . . . .  Page  47 

Write  Data  Card  Read  Error  . .  Page  48 

Write  Data  File  End  of  File .  Page  48 

Assign  To  Longest  Displayed  Column  Name  .  Page  48 

Output  Tuple  Data  .  Page  49 

Get  Column  Names  Into  Core  . .  Page  53 

List  column  Names .  Page  54 

Blank  Format  Array .  page  54 

Save  Like  Add  command  Expects  . .  Page  55 

Display  prompt . rage  59 

Format  Decimal  ASCII  Array  By  Mag  .  Page  59 


Idle  and 
Do  Nothing 


START 


PUTTDF  put  n®  i 
IEENT  and  ITO 
arrays  Into 
.IDF  file 


E.DP  l-r  L 


(page  10) 


EUITKEL 

DELETIF  TUI 'LEG 


G-16 


!%  /  •/ 


-VS.VVVV\ 


EDITREL 


EDM  KEL 


IDLE  AND  DO  NC'i  1 1 1  Nf- 


* 


GM  VALUF 

or  ; i  mm 

PACE  30 


START 


EUITREL 


G-36 


Display 
Selected 
Hjple  VAlues 


p«g*  36) 


1  )  (p*ge  36)  (  B)(p«ge  36) 


3/4 


HO-Hi 88  M2  FEASIL  INPLEHENTRTION  UNDER  VAX  VMS  WITH  DESIGN 
'  INFORRRTIONCU)  ALABAMA  UNIV  IN  HUNTSVILLE  DEPT  OF 

ELECTRICAL  AND  COHPUTER  EN.  .  J  D  HARR  ET  AL.  NOV  8< 
UNCLASSIFIED  UAH-5-31323  AHSHI-CR-RD-SS-86-5  F/G  12/3 


bi 

iu 

ft L 


a* 

i*. 


MICROCOPY  RESOLUTION  TEST  CHART 
NATIONAL  BUREAU  OF  STANDARDS  1%3-A 


EDllKEL 


C-42 


EDITREL 


CO  oc 


G-48 


EDIT  R t.L 


Mnk  cht 
string 


CPYSUB 

Copy  cht  j 
narked  string 


COPY  SIRING 
BE'!  WE  hN 
DELIMITER 


FIND  THE  NEXT 
DELIMITER 


STAR  I 


Has  Che  delimiter  or  the 
Vri  of  string  been  found  7 

>=-< irc7 


CFYSUB 
Copy  In 
another 
character. 


G-50 


EDI  I  h  EL 


START 


Tata  card 
read  error. 


Sac  Che  rente 
of  tuples  Co 


BACK 


start 


' Bnd  of  file, 
tuples  were 

saseJ."  / 


Sec  an  end  of 
ftla  natter. 


BACK 


b_u_i  >  Hll_ 

WRI  I  E  DATA 
CARD  READ 
ERROR 


WRITE  DA  I A 
FILE  END 
OF  FILE 


STAR  T 


find  che  longest 
string. 


Hove  all  seringa 
for  rlghc 
JuadflcaClon. 


ASSIGN  1C 

LONGEST 

DISPLAYED 

COLUMN 

NAME 


BACK 


a 


B)<w  52) 


(W  52) 


t,«'WT!TWf 


.  >  >*>.V  V  ’ 


75  chineMH 

as  a  string 


Pad  the  rest  of 
FORMAT  with 


Adjust  FORMAT 
array  to  end  on 
element  boundary 


JQ11ML 

GFl  COLUMN 


G-57 


BLANK 
F OHM AT 


OVERLAY:  NEWRELAT.FLC 

SUBROUTINE:  NEWREL.FLC 

SYNTAX: 

CALL 

NEWREL(IDENT,ISAFTF, ITDF, INC, INR, IDEM, IDADF, ITDF, ITFRC.IADFRC) 

NEWREL-CREATE  A  NEW  RELATION. 

THIS  ROUTINE  IS  USED  TO  INITIALLY  ESTABLISH  A  RELATION.  THE 
THREE  FILES  .TF.  .TDF  AND  .ADF  ARE  ALLOCATED.  AND  THE  COLUMN 
HEADINGS  AND  STRATEGIES  ARE  REQUESTED  AND  SET  UP.  ALSO  THE 
INITIAL  VALUES  FOR  THE  RELATION  (IDENT  AND  ITDF)  ARE  ASSIGNED  TO 
THE  FILES. 

THE  SUBROUTINE  ARGUMENTS  ARE: 

1.  IDENT  -  RELATION  STATUS:  CORE  RESIDENT, 

2.  IDEM  -  DIMENSION  OF  IDENT, 

3.  ITDF  -  CORE  RESIDENT  TDF, 

4.  INC  -  NUMBER  OF  COLUMNS  IN  TDF.  AND 

5.  INR  -  NUMBER  OF  RECORDS  IN  TDF. 
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APPENDIX  I 


DELREL 


OVERLAY:  DELETREL.FLC 


t 

SUBROUTINE:  DELREL.FLC 


SYNTAX: 

CALL  DELREL 

THIS  ROUTINE  DELETES  AN  UNWANTED  RELATION.  ALL  FILES  .TF. 
.TDF.  AND  .ADF  ARE  DELETED.  THIS  ROUTINE  REQUIRES  CONFIRMATION 
THAT  THE  RELATION  NAMED  IS  THE  CORRECT  RELATION  TO  BE  DELETED 
BEFORE  IT  IS  DELETED. 
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MODCOL 


Subroutine:  MODCOLUM 


This  subroutine  provides  for  the  manipulation  of  columns 
in  an  existing  relation.  No  changes  in  strategy  are  allowed, 
since  this  would  assume  a  change  in  data. 


The  basic  functions  provided  are: 

(1.)  Delete  a  column 

(2.)  Add  a  column 

(3.)  Alter  a  column  name 

(4.)  List  current  column  names 
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MERGRL 


Subroutine:  MERGEREL 


This  subroutine  allows  the  user  to  merge  portions  of  two 
similar  relations  into  a  third  composite  relation. 


The  options  are: 

(1.)  Merge  two  relations  into  a  third  relation 
containing  only  those  records  which  meet  the  matching  of 
like  column  pairs. 

(2.)  Add  two  relations  by  copying  first  into  a 
third  relation  and  then  appending  the  second  relation.  The 
column  headings  must  be  identical  to  use  this  option. 
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Subroutine: 


REORGREL 


This  subroutine  is  used  to  reorganize  a  relation.  The 
purpose  is  to  remove  unwanted  "dead  space”  from  the  . ADF. 
The  deleted  records  are  removed  from  the  .ADF  file  then  the 
revised  .ADF  is  written  back  for  storage. 
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Subroutine  :  BACKUPREL 


This  subroutine  allows  the  user  to  backup  or  restore 
relational  data,  in  backing  up  a  user  will  copy  the  data 
from  the  primary  storage  media  (usually  system  disk)  to  a 
secondary  storage  media  (magnetic  tape.)  This  protects  the 
user's  data  and  allows  reconstruction  in  the  event  of  a 
system  failure. 

In  restoring  a  relation,  data  is  transferred  from 
magnetic  tape  back  to  the  system.  This  utility  is  used 
primarily  after  a  system  failure.  This  subroutine  is 
setup  to  transfer  the  .TF,  .ADF,  and  .TDF  files  from  the 
user  storage  volume  to  the  nine  track  tape  drive.  The  user 
must  insure  mounting  of  the  proper  tape  and  placing  the 
drive  in  the  proper  configuration. 

The  following  information  is  stored  on  magnetic  tape 
during  a  backup: 

1.  The  relation  name 

2.  The  date  of  backup 

3.  Read/write  security  keys 

4.  The  Tuple  Descriptor  File  (TDF) 

5.  The  Tuple  File  (TF) 

6.  The  Alpha  Data  File  (ADF) 
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Subroutine :  DBSTAT 


This  routine  gives  the  user  the  physical  status  of  a 
relation.  This  information  includes  the  size  of  the  relation, 
the  number  of  columns ,  the  number  of  rows ,  the  dead  to 
active  space  ratio,  as  well  as  the  colunn  data*  if  desired. 

DBSTAT  allows  for  a  printer  copy  of  the  relation  status, 
if  desired. 
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OVERLAY:  HELP.FLC 


SUBROUTINE:  HELP.FLC 


SYNTAX: 
CALL  HELP 


THIS  IS  A  SUBROUTINE  ADDED  TO  FEASIL  77  TO  AID  THE  USER  IN 
MANIPULATION  OF  DATA  RELATIONS  UNDER  FEASIL  77.  THE  VALID 
PARAMETERS  (PASSED  IN  THE  INTEGER  (HOLLERITH)  ARRAY  "PARAM")  ARE: 


CREATE 

EDIT 

DELETE 

MERGE 

MODIFY 

RETRIEVE 

REORGANIZE 

STATUS 

BACKUP 

COLUMN 

RECORD 

VOLUME 

PROTECTION 

DEVICE 

STRATEGY 


EXPLAINS  THE  RELATION  CREATION  UTILITY. 
EXPLAINS  EDIT  COMMAND  STRUCTURES. 

EXPLAINS  THE  DELETE  UTILITY. 

EXPLAINS  THE  MERGE  RELATIONS  PROCEDURE. 
EXPLAINS  COLUMN  MODIFICATION  PROCEDURE. 
EXPLAINS  RETRIEVE  AND  MANIPULATION  UTILITY. 
EXPLAINS  NEED  FOR  REORGANIZATION. 

EXPLAINS  THE  STATUS  RELATION  COMMAND. 
EXPLAINS  THE  BACKUP  UTILITY. 

EXPLAINS  RELATION  COLUMN  STRUCTURES. 
EXPLAINS  RELATION  RECORD  STRUCTURES. 
EXPLAINS  THE  SYSTEM  VOLUME  AND  IT'S  USE. 
EXPLAINS  USE  AND  NEED  FOR  PROTECTION  KEYS. 
EXPLAINS  SYSTEM  DEVICE  STRUCTURE. 

EXPLAINS  FOUR  TYPES  OF  DATA  STRATEGIES. 
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*45  THE  VALID  HELP  PARAMETERS  ARE: 
BACKUP  CREATE 

DELETE  EDIT 

MERGE  MODIFY 

REORGANIZE  RETRIEVE 
STATUS  COLUMN 

RECORD  VOLUME 

PROTECTION  DEVICE 
STRATEGY 


*1001  "CREATE"  IS  USED  TO  CREATE  THE  FILES  ASSOCIATED  WITH 
EVERY  FEASIL  RELATION.  TO  CREATE  A  FILE.  YOU  MUST  KNOW 
HOW  MANY  COLUMNS  THE  RELATION  REQUIRES.  THE  DESIRED 
PROTECTION  KEYS  ASSOCIATED  WITH  THE  RELATION  (IF 
DESIRED).  AND  THE  COLUMN  STRATEGIES  FOR  EACH  OF  THE 
*  COLUMNS  CREATED.  THE  USER  MUST  ALSO  KNOW  THE  NAME  OF 
THE  VOLUME  ON  WHICH  THE  RELATION  IS  TO  BE  CREATED. 

SEE  HELP  ON:  PROTECTION.  STRATEGY.  COLUMN.  VOLUME. 


*1002  "EDIT"  IS  USED  TO  ENTER  DATA  INITIALLY  OR  TO  MODIFY 
ALREADY  EXISTING  DATA.  TO  USE  THE  "EDIT"  FEATURE.  THE 
USER  MUST  KNOW  THE  NAME  OF  THE  DESIRED  RELATION.  THE 
PROTECTION  KEYS  ASSOCIATED  WITH  THE  RELATION.  AND  THE 
NAME  OF  THE  VOLUME  ON  WHICH  THE  RELATION  EXISTS. 

SEE  HELP  ON:  PROTECTION.  VOLUME. 


*1003  "DELETE"  IS  USED  TO  PERMANENTLY  REMOVE  A  RELATION  FROM 
THE  SPECIFIED  VOLUME.  TO  USE  THE  "  DELETE"  FUNCTION.  THE 
USER  MUST  KNOW  THE  RELATION  NAME.  THE  PROTECTION  KEYS. 
AND  THE  VOLUME  NAME  ON  WHICH  THE  RELATION  EXISTS. 

SEE  HELP  ON:  PROTECTION.  VOLUME. 


*1004  "MODIFY"  IS  USED  TO  PERMANENTLY  CHANGE  THE: 

A>  COLUMN  NAME.  OR 

B>  NUMBER  OF  COLUMNS  (DELETE  OR  ADD  ONE). 

THE  USER  MAY  ALSO  LIST  THE  COLUMN  NAMES  USING  THIS 
FEATURE. 

SEE  HELP  ON  :  COLUMN. 


*1005  "REORGANIZE"  IS  USED  TO  INCREASE  THE  EFFICIENCY  OF  A 
FEASIL  RELATION.  IT  IS  PRIMARILY  USED  AFTER  COLUMN 
SPECIFICATIONS  HAVE  BEEN  MODIFIED  (i.  e.,  USING  MODIFY) 

SEE  HELP  ON:  COLUMN,  MODIFY. 
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aerate: 


"RETRIEVE  AND  MANIPULATE"  IS  USED  TO  OPERATE  ON  AN 
EXISTING  RELATION  BY  THE  RELATIONAL  DATA  BASE 
OPERATORS  (i.  e.,  "AND",  OR  "OR").  IN  ADDITION.  R  &  M  IS  USED 
TO  SORT  RELATIONAL  DATA  BY  COLUMNS,  PRINT  RELATIONAL 
DATA  TO  A  DEVICE  OR  FILE,  REPRODUCE  A  RELATION  UNDER  A 
DIFFERENT  NAME,  OR  TO  MOVE  A  SUBSET  OF  THE  PRIMARY 
RELATION  TO  A  NEW  RELATION. 

SEE  HELP  ON:  COLUMN,  DEVICE. 


"BACKUP"  IS  USED  TO  SAVE  A  BACKUP  (COPY)  OF  THE  RELATION 
TO  (FROM)  MAGNETIC  TAPE.  IN  ADDITION  TO  STORING  THE 
RELATIONAL  DATA  TO  THE  TAPE,  THE  DATE  OF  BACKUP  AS 
WELL  AS  AN  OPTIONAL  PROTECTION  KEY  SEQUENCE  ARE  ALSO 
STORED. 


"STATUS"  IS  USED  TO  INQUIRE  ABOUT  THE  SIZE  OF  A  RELATION 
AS  WELL  AS  TO  INQUIRE  ABOUT  THE  "DEAD"  SPACE  USED  BY 
THE  FILE.  THE  "DEAD"  SPACE  MAY  BE  MINIMIZED,  IF  DESIRED 
FOR  EFFICIENCY  USING  THE  REORGANIZE  FEATURE. 

SEE  HELP  ON  :  REORGANIZE. 


"MERGE"  SERVES  TWO  PURPOSES.  IT’S  FIRST  PURPOSE  IS  TO 
PRODUCE  A  THIRD  RELATION  FROM  TWO  INPUT  RELATIONS  BY 
PERFORMING  A  "MERGE".  THE  MERGE  FUNCTION  IS  A  "UNION- 
OPERATOR.  THEREFORE,  THE  OUTPUT  RELATION  CONSISTS  OF 
THE  TOTAL  NUMBER  OF  UNIQUE  COLUMNS  IN  THE  TWO  INPUT 
RELATIONS.  THE  ONLY  RECORDS  WHICH  ARE  MAINTAINED 
THROUGH  THE  "MERGE"  ARE  THE  ONES  WHICH  INTERSECT 
ONE-TO  ONE  WITHIN  THOSE  COLUMNS  WHOSE  NAMES  INTERSECT 
ONE-TO  ONE. 

THE  SECOND  PURPOSE  OF  "MERGE"  IS  TO  PRODUCE  A  THIRD 
RELATION  FROM  TWO  INPUT  RELATIONS  WHICH  HAVE  THE 
IDENTICAL  COLUMN  NAMES  AND  STRATEGIES.  THE  RESULTING 
RELATION  HAS  THE  SAME  COLUMN  NAMES  AS  THE  TWO  INPUTS 
AND  THE  RECORD  ARE  A  "UNION”  OF  THE  TWO  INPUT 
RELATIONS. 

SEE  HELP  ON:  COLUMN,  RECORD,  STRATEGY. 


"COLUMN"  IS  THE  NAME  GIVEN  TO  EACH  CATEGORY  OF 
RELATION.  EACH  COLUMN  HAS  A  UNIQUE  COLUMN  NAME  AND 
MAY  BE  REFERENCED  ALONE  OR  WITH  OTHER  COLUMNS  IN  THE 
SAME  RELATION  (IF  THERE  ARE  ANY).  AN  EXAMPLE  OF 
COLUMNS  IN  A  RELATION  CALLED  "MYCLASS"  MAY  BE: 

1  •  NAME 

2  -  AGE 

3  •  SEX 

4  -  SCORE 


EACH  RECORD  OF  THE  RELATION  HAS  AN  ENTRY  FOR  EACH 
COLUMN  IN  THE  RELATION.  THE  RELATION,  THUS.  FORMS  A 
DATABASE  OF  ENTRIES  UNDER  THE  COLUMN  HEADINGS. 

SEE  HELP  ON:  RECORD. 


*1011  "RECORD"  IS  A  COLLECTION  OF  COLUMNS  WHICH,  TOGETHER 
DESCRIBE  THE  DESIRED  ASPECTS  OF  THE  DATABASE.  EACH 
RECORD  IN  A  RELATION  CONTAINS  DATA  FOR  ALL  OF  THE 
COLUMNS  OF  THE  RELATION.  RECORDS  MAY  BE  ACCESSED 
INDEPENDANTLY  OR  WITH  OTHER  RECORDS  USING  "RETRIEVE 
AND  MANIPULATE". 

SEE  HELP  ON:  COLUMN,  RETRIEVE. 


*1012  "VOLUME"  IS  THE  NAME  GIVEN  TO  BULK  MAGNETIC  MATERIAL 
ISED  IN  COMPUTER  INFORMATION  STORAGE.  FOR  EASY  LOCATION 
OF  DATA,  THESE  VOLUMES  ARE  UNIQUE  NAMES.  TYPICAL 
VOLUME  NAMES  ARE: 

MT32 

MT6A 

PROl 

TEMP 

THE  USER  SHOULD  INQUIRE  ABOUT  THE  PROPER  VOLUMN  TO  USE 
FOR  EACH  APPLICATION  VIA  THE  SYSTEM  OPERATOR. 


*1013  "PROTECTION".  FEASIL  -77  POSSESSES  THE  ABILITY  TO  OFFER  A 
CERTAIN  DEGREE  OF  PROTECTION  AGAINST  THE  ACCIDENTAL 
DELETION  OF  RELATIONAL  FILES.  THOS  SYSTEM  OF  PROTECTION 
INVOLVES  THE  USAGE  OF  PROTECTION  "KEYS"  ASSOCIATED  WITH 
EACH  RELATION.  ON  THE  PERKIN-ELMER  OS/32  SYSTEMS,  THE 
RE  AD/ WRITE  PROTECTION  KEYS  ARE  CODED  AS  FOLLOWS: 

CODE  DESCRIPTION 


00  UNPROTECTED,  ANY  KEYS  WILL  WORK  WHEN 

ACCESSING  THIS  RELATION. 

10-254  CONDITIONALLY  PROTECTED.  THE  USER  MUST 
KNOW  THE  CORRECT  CODES  TO  ACCESS  THE 
RELATION. 

255  UNCONDITIONALLY  PROTECTED.  NO  KEYS  WILL 

ALLOW  ACCESS  TO  THE  RELATION. 
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"DEVICE"  IS  THE  TERM  USED  TO  IDENTIFY  A  NON-FILE 
PERIPHERAL  ATTACHED  TO  THE  COMPUTER  TO/FROM  WHICH 
DATA  MAY  BE  SENT/RECIEVED.  EXAMPLE  DEVICES  ARE: 

PR:  (SYSTEM  PRINTER) 

CON:  (USER  CONSOLE) 

PLOT:  (SYSTEM  PLOTTER) 

MAG0:(9  TRACK  TAPE  DRIVE) 

CONTACT  THE  SYSTEM  OPERATOR  FOR  MORE  INFORMATION 
ABOUT  THE  SYSTEM'S  PERIPHERAL  DEVICES. 


"STRATEGY"  IS  THE  TERM  USED  TO  REFER  TO  THE  TYPE  OF 
DATA  THAT  IS  CONTAINED  IN  A  PARTICULAR  COLUMN.  THE 
VALID  STRATEGIES  ARE: 

"1"  -  INTEGER  NUMBER. 

"2"  -  DECIMAL  (REAL)  NUMBER, 

"3"  -  SINGLE  CHARACTER,  AND 
"4"  -  CHARACTER  STRING. 

SEE  HELP  ON:  COLUMN. 


APPENDIX  P 


TPLIBI 


Library:  TPLIB1 


This  library  is  a  collection  of  subroutines  used 
throughout  FEASIL.  A  list  of  these  subroutines  and  a  brief 
*  description  of  their  purpose  is  provided  below. 

,  STRLEN  -  Returns  the  length  of  a  string. 

FTIPI  -  Converts  floating  point  data  to  integer 
format. 

PITFP  -  Converts  integer  format  data  back  to  floating 
point. 

YESNO  -  Logical.  Gets  a  "yes"  or  "no"  answer  from  the 
console  and  returns  true  or  false. 

GETNUM  -  Get  integer  data. 

REANUM  -  Converts  a  string  into  integer  data. 

ELEB  -  Eliminates  leading  edge  blanks. 

ENFPTA  -  Converts  floating  point  data  to  ASCII  format. 
ENINTA  -  Converts  integer  data  into  ASCII  format. 

GETFP  -  Get  floating  point  data. 

REAFP  -  Converts  string  data  into  floating  point. 
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APPENDIX  Q 


TPLIB2 


Library  :  TPLIB2 

This  library  is  a  collection  of  subroutines  used 
throughout  FEASIL.  A  list  of  each  of  these  subroutines  and 
a  brief  description  of  their  purposes  is  provided  below: 

PUTTDF  -  Puts  the  IDENT  and  ITDF  arrays  on  file. 

RTVTDF  -  Retrieves  the  IDENT  and  ITDF  arrays  from  disk. 
ADDTUP  -  Adds  tuple  data  to  a  relation. 

DELTUP  -  Deletes  tuple  data  from  a  relation. 

PUTIFO  -  Put  info  into  a  relation. 

PTFRC  -  Puts  data  record  into  the  tuple  file. 

PADFRC  -  Puts  data  record  into  the  Alpha  Data  File. 
RTFRC  -  Retrieves  a  record  from  the  tuple  file, 

RADFRC  -  Retrieves  a  record  from  the  ADF. 

PUTIFO  -  Puts  data  into  TF  and  ADF. 

COLNAM  -  Get  the  column  names  from  the  ADF 
HASHIT  -  Hashes  a  file  name  into  8  characters. 

UTFAR  -  Retrieves  TF  alpha  record. 
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Library:  TPLIB3 


This  is  a  collection  of  subroutines  used  for  file 
reallocation  and  testing  throughout  FEASIL.  A  list  of  each 
subroutine  and  a  brief  description  of  their  purpose  is 
provided  below. 


RDOADF  -  Reallocates  the  size  of  the  ADF. 
RDOTF  -  Reallocates  the  size  of  the  TF. 

CPYREL  -  Copies  the  TF  and  ADF  files. 


FSLIDE  -  Slides  the  first  six  elements  of  the 
argumnt  one  slot  forward. 
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APPENDIX  S 
TPFILECR 


OVERLAY:  TPFILECR.FLC 


The  following  Is  a  complete  list  of  subroutines  Included  in  the 
overlay  TPFILECR.FLC  with  appropriate  syntax  for  their  use  and  a 
brief  description  of  each  routine.  These  routines  will  be 
described  in  detail  on  the  following  pages  along  with  their 
flowcharts. 

1.  FILOES(TOTFD.NAMFIL) — creates  file  descriptor. 

2.  SECUREdWKEY, IRKEY)— assigns  security  keys. 

3.  EMIARY(IARRAY,N) — empties  the  array  "I ARRAY"  of  size  N. 

4.  TFCRE ( TOTFD , I WKEY ,  I RKEY , NSZTR , I STTF ) — creates  .TF  file. 

5.  ADFCRE ( TOTFD , I WKEY , I RKEY ,NSZADF , I STADF ) — creates  .ADF  file 

6.  TDFCRE ( TOTFD , I WKEY , I RKEY .NSZTDF , I STTDF )---creates  .TDF  file 

7.  RELFC  dOTFD.NSZTF, NSZTDF, NSZADF.IFATAL)— -creates  relation. 

8.  TFDEL  ( TOTFD ,  IVIKEY ,  I  RKEY ,  I  STTF  )---del  etes  .TF  file. 

9.  TDFDEL  ( TOTFD ,  I  WKEY ,  IRKEY ,  I  STTDF )-— del  etes  .TDF  file. 

10.  ADFDEL(  TOTFD,  I  WKEY,  I  RKEY,  I  STADF)— deletes  .ADF  file. 

11.  RELFD( IDELST.NAMFIL) — deletes  relation 

12.  EQUIVI (ARRAY1 ,ARRAY2,N) — equates  first  N  parts  of  2  arrays 
FILES  BY  LOGICAL  UNITS. 

13.  OPNTF(TOTFD, IWKEY, IRKEY, ISOTF.LUTF)— opens  .TF  file. 

14.  OPNADF { TOTFD , IWKE Y , I RKEY , I SOADF ,LUADF ) ---opens  .ADF  file. 

15.  OPNTDF(TOTFD, IWKEY, IRKEY, ISOTDF ,LUTDF)— opens  .TDF  file. 

16.  FILERR(IS1ATUS, NOMATCH) —  Diagnoses  file  I/O  error  codes. 

17.  NAME (I ) — gets  name  "I". 


SUBROUTINE:  FILDES.FLC 

SYNTAX:  CALL  FILDES(TOTFD.NAMFIL) 

THIS  ROUTINE  INTERACTIVELY  COMPLETES  THE  CONSTRUCTION  OF 
THE  FILE  DESCRIPTOR.  READ  AND  WRITE  KEYS.  AND  STORAGE  VOLUME. 

NAMFIL  IS  AN  INPUT  NAME  ARRAY  DEFINED  IN  SUBROUTINE  '’NAME" 
AND  TOTFD  IS  THE  TOTAL  FILE  DESCRIPTOR  FOR  USE  WITH  STRING 
ROUTINES  SUCH  THAT:  TOTFD  -  <VOLUME  NAME>:<FILE  NAME>.<EXT>. 
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SUBROUTINE:  EMIARY.FLC 

SYNTAX:  CALL  EMIARY(IARRAY.N) 

THIS  ROUTINE  INITIALIZES  AN  INTEGER  ARRAY  NAMED  "IARRAY"  AND 
OF  DIMENSION  "N"  TO  EMPTY. 


SUBROUTINES  ADFCRE.FLC.TFCRE.FLC.  AND  TDFCRE.FLC 

SYNTAX:  CALL  *”CRE(TOTFD,IWKEY,IRKEY,NSZ"MST*”) 

WHERE  ***  IS  EITHER  TF,  TDF,  OR  ADF. 

THIS  ROUTINE  ADDS  THE  EXTENSION  **•  TO  THE  TOTFD  FILE  TO 
CREATE  THE  TUPLE  FILE  (TF)  DESCRIPTOR. THE  ALPHA  DATA  FILE  (ADF). 
OR  THE  TUPLE  DESCRIPTOR  FILE  (TDF).  THE  APPROPRIATE  FILE:  EITHER 
TF.  ADF,  OR  TDF.IS  THEN  CREATED  AS  A  CONTIGUOUS  FILE  OF  SIZE 
NSZ***  256  BYTE  SECTORS. 


SUBROUTINE  RELFC.FLC 

SYNTAX:  CALL  RELFC(TOTFD,NSZTF,NSZTDF,NSZADF,IFATAL) 

THIS  ROUTINE  IS  TITLE  THE  "RELATIONAL  FILE  CREATOR"  AND  IT'S 
PURPOSE  IS  TO  CREATE  ALL  DATABASE  AND  TEST  MATRIX  STORAGE 
FILES  THE  INITIAL  TIME.  THE  VARIABLE  "IFATAL"  IS  THE  FILE  CREATION 
RETURN  STATUS  INDICATOR.  IF  "IFATAL"-0  THEN  THERE  IS  NO  ERROR.  IF 
IT  EQUALS  1  THEN  THERE  IS  NOT  ENOUGH  ROOM  ON  THE  STORAGE 
VOLUME. 


4 


SUBROUTINES  TFDEL.FLC.  ADFDEL.FLC,  AND  TDFDEL.FLC 

SYNTAX:  CALL  ***DEL(TOTFD,IWKEY,IRKEY,IST«”) 

WHERE  ***  EQUALS  EITHER  TF,  ADF,  OR  TDF. 


THESE  ROUTINES  ADD  THE  EXTENSION  *«  TO  THE  TOTFD  FILE  TO 


CREATE  THE  TUPLE  FILE  (TF).  THE  ALPHA  DATA  FILE  (ADF),  OR  THE 
TUPLE  DESCRIPTOR  FILE  (TDF)  DESCRIPTOR.  THE  APPROPRIATE  FILE  IS 
THEN  DELETED. 
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SUBROUTINE  RELFD.FLC 

SYNTAX:  CALL  RELFDUDELST.NAMFIL) 

THIS  ROUTINES  TITLE  IS  "RELATIONAL  FILES  DELETER.  IT  DELETES 
ALL  RELATIONAL  DATABASE  AND  TEST  MATRIX  FILES  ALL  AT  ONCE. 
"IDELST"  IS  A  RETURN  STATUS  INDICATOR.  IF  IDELST  EQUALS  0  THEN 
THERE  IS  NO  ERROR.  IF  IDELST  EQUALS  1  THEN  THERE  IS  AN  UNKNOWN 
ERROR.  THE  VARIABLE  "NAMFIL"  IS  THE  NAME  OF  THE  RELATION  TO  BE 
DELETED.  THE  FORMAT  FOR  THIS  VARIABLE  IS  DEFINED  IN  THE 
SUBROUTINE  *  NAME  *. 

THIS  ROUTINE  IS  PRESET  TO  ALLOW  THE  USER  THREE  TRIES  TO 
DELETE  THE  FILE.  IF  THE  USER  IS  NOT  SUCCESSFUL  IT  IS  ASSUMED 
THAT  HE  EITHER  DOES  NOT  KNOW  WHAT  HE  IS  DOING  OR  HE  IS  TRYING 
TO  DELETE  A  FILE  HE  SHOULD  NOT  BE  DELETING.  AFTER  THREE  TRIES 
THE  JOB  IS  TERMINATED. 
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SUBROUTINE  EQUIVI.FLC 


SYNTAX:  CALL  EQUIVKARRA" 

V 

THIS  ROUTINE  EQUIVALENC 
ARRAY1  TO  INTEGER  ARRAY2 


c.4  **t  I'*:  J|Vl  Atiltu»t  ljt  U<»  tiV.lJ'hl'i.tJV  'fal '  4  I^WAWJU->tf|J|tAy|latlWliU 


SUBROUTINES  OPNTF.FLC,  OPNADF.FLC,  AND  OPNTDF.FLC. 

SYNTAX:  CALL  OPN***(TOTFD,IWKEY,IRKEY,ISO***,LU***) 

WHERE  ***  EQUALS  TF,  ADF.  OR  TDF. 

THESE  ROUTINES  OPEN  THE  TUPLE  FILE  (TF),  THE  ALPHA  DATA  FILE 
(ADF).  OR  THE  TUPLE  DESCRIPTOR  FILE  (TDF)  FOR  THE  RELATION  NAMED 
IN  THE  TOTFD. 

***********  WARNING  ******  WARNING  ******** 

ALL  FILES  ARE  OPENED  AS  SHAREABLE  READ/WRITE 
(i.e.,  IAP-4) 

TF  FILES  ARE  LOCATED  ON  LOGICAL  UNIT  LU-LUTF. 

ADF  FILES  ARE  LOCATED  ON  LOGICAL  UNIT  LU-LUADF. 

TDF  FILES  ARE  LOCATED  ON  LOGICAL  UNIT  LU-LUTDF. 

1ST  IS  AN  ERROR  INDICATOR.  FOR  MORE  INFORMATION  REFER  TO 
THE  FTN  LIB  REAL  TIME  EXTENSION  MANUAL. 


SUBROUTINE  FILERR.FLC 


SYNTAX:  CALL  FILERRIISTATUS, NOMATCH) 

1 

THIS  ROUTINE  IS  USED  TO  DIAGNOSE  BASIC  FILE  ERROR  CODES. 

"ISTATUS”  IS  THE  INPUT  VARIABLE  CONTAINING  THE  ERROR  STATUS 
CODE.  "NOMATCHIS  A  RETURN  VARIABLE  THAT,  IF  EQUAL  TO  1  INDICATES  1 

THAT  THE  ERROR  IS  UNKNOWN  AND  THE  USER  SHOULD  CONSULT  THE 
SYSTEM  OPERATOR.  IF  "NOMATCH"  DOES  NO  EQUAL  1  THEN  THE 
APPROPRIATE  ERROR  MESSAGE  IS  PRINTED  ON  THE  USERS  CONSOLE. 
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SUBROUTINE  NAME.FLC 


SYNTAX:  CALL  NAME(I) 

THIS  ROUTINE  REQUESTS  THE  USERS  FILE  NAME  AND  THEN 
RECONSTRUCTS  IT  INTO  A  SUITABLE  FORM  FOR  A  FEASIL  FILE  NAME.  THE 
FILE  NAME  CAN  BE  A  MAXIMUM  OF  FORTY-TWO  (42)  CHARACTERS  LONG 
AND  THE  FIRST  CHARACTER  MUST  BE  ALPHABETIC.  THE  NAME(I)  IS 
RETURNED  IN  AN  INTEGER  ARRAY  FORMAT  WITH  A  MAXIMUM  OF 
THIRTEEN  ELEMENTS.  THE  ELEMENTS  ARE: 

KD-NUMBER  OF  CHARACTERS  IN  THE  NAME. 

I(2)-THE  FIRST  4  CHARACTERS  OF  THE  FILE  NAME. 

I(I)-THE  SECOND  4  CHARACTERS  OF  THE  FILE  NAME, 


I(13)-THE  TWELFTH  4  CHARACTERS  OF  THE 


FILE  NAME. 
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APPENDIX  T 
F7I0 


Subroutine :  F7I0 


This  routine  is  a  collection  of  machine 
dependant  subroutines  that  are  concerned  with  file 
manipulation  (opening,  closing,  copying,  etc.) 
Those  shown  here  are  used  on  die  VAX  (FAST) . 

The  subroutines  are: 

FILEOPN-  opens  a  file 
FILEDEL-  deletes  a  file 
CREAFIL-  creates  a  file 
FILEREN-  renames  a  file 
FILECLS-  closes  a  file 

VAXERR  -  gives  the  meaning  of  VAX  error  codes. 
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